baseplot <- ggplot() +
aes(x=citystate, y=Freq, fill = Response, order=Response) +
facet_wrap(~year, nrow=3)+geom_bar(data = trial2$neg, stat = "identity") +
scale_fill_manual(breaks=c("Not at all satisfied", "2", "3", "4",
"Extremely satisfied"), values=colorsB,
name="Response") +
geom_bar(data = trial2$pos, stat = "identity") + coord_flip() +
ggtitle("Community satisfaction") + xlab("") +ylab("") +
scale_y_continuous(limits=c(-0.5, 1),
breaks=seq(from=-0.5, to=0.75, by=0.25),
labels=c("50%", "25%", "0", "25%", "50%", "75%")) +
theme(legend.text=element_text(size=14),
legend.title=element_text(size=16),
axis.text=element_text(size=14),
strip.text=element_text(size=14))
baseplot